home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 32 / 64er_Magazin_Sonderheft_32_19xx_Markt__Technik_de_Side_A.d64 / ultraformat v2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.7 KB  |  167 lines
  1. 100 rem *****  ultraformat v2.0  *****
  2. 110 :   :   :                    :   :
  3. 120 rem *****  ueberarbeitung :  *****
  4. 130 rem *****  frank berkner     *****
  5. 140 rem *****  am gruenen weg 14 *****
  6. 150 rem *****  5024 pulheim 2    *****
  7. 160 :
  8. 170 poke53280,.:poke53281,.:poke53272,23
  9. 175 open1,8,15,"ui":print#1,"i"
  10. 180 print"[147][158]*****  [213] l t r a f o r m a t  [214]2.0 *****"
  11. 190 g$(1)="[199]anze [196]iskette formatieren[146]"
  12. 200 g$(.)="[206]ur [211]pur 36-41 formatieren[146]"
  13. 210 g$(2)="[213]mschaltprogramme ersetzen[146]"
  14. 220 g=1:printg$(1);g$(.);g$(2)
  15. 230 print"[193]uswahl mit [195]ursortasten und  [210]eturn[146]"
  16. 240 print""g$(g):wait198,1:getg$
  17. 260 ifg$=chr$(13)then320
  18. 270 ifg$=""thenifg=1thenprintg$(g):g=.:goto240
  19. 280 ifg$=""thenifg=.thenprintg$(g):g=2:goto240
  20. 290 ifg$="[145]"thenifg=.thenprintg$(g):g=1:goto240
  21. 300 ifg$="[145]"thenifg=2thenprintg$(g):g=.:goto240
  22. 310 goto240
  23. 320 ifg=1thengosub1190
  24. 330 ifg=2thengoto1330
  25. 340 print"[196]iskswitches abspeichern :[158]"
  26. 345 print"1[146]) [206]ormal als [208][210][199] (belegt 2 [194]loecke)"
  27. 350 print"2[146]) [193]uf [212]rack 18   (belegt 0 [194]loecke)"
  28. 360 wait198,1:geta$
  29. 370 ifa$="1"theny=1
  30. 380 ifa$<>"1"anda$<>"2"then360
  31. 390 rem  ***** vorbereitungen
  32. 400 open2,8,2,"#1"
  33. 410 print#1,"m-w"chr$(81)chr$(.)chr$(1)chr$(255)
  34. 420 print#1,"m-w"chr$(.)chr$(.)chr$(1)chr$(192)
  35. 430 print#1,"m-w"chr$(8)chr$(.)chr$(2)chr$(36)chr$(.)
  36. 440 print#1,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15)
  37. 450 rem  ***** uebertragung
  38. 460 a$="":forx=.to32:reada:a$=a$+chr$(a):next
  39. 470 print#1,"b-p"2;.:print#2,a$;
  40. 480 rem  ***** formatierung
  41. 490 print#1,"m-w"chr$(1)chr$(.)chr$(1)chr$(224)
  42. 500 rem  ***** datas einlesen
  43. 510 forq=.to72:reada:no$=no$+chr$(a):next
  44. 520 forq=.to195:reada:d$(2)=d$(2)+chr$(a):next
  45. 530 forq=.to195:reada:d$(3)=d$(3)+chr$(a):next
  46. 540 rem  ***** warten auf formatende
  47. 550 print#1,"m-r"chr$(1)chr$(.)chr$(1):get#1,a$:ifasc(a$+chr$(.))>127then550
  48. 560 rem  ***** direktory-generator
  49. 570 gosub1100:print#1,"u1"2;.;18;.
  50. 580 gosub1140:print#1,"b-p"2;4
  51. 590 a$="":forx=4to71:a$=a$+chr$(.):next
  52. 600 a$=a$+chr$(17)+chr$(252)+chr$(255)+chr$(7)
  53. 610 forx=76to95step4:a$=a$+chr$(19)+chr$(255)+chr$(255)+chr$(7):next
  54. 620 forx=96to143:a$=a$+chr$(.):next:print#2,a$;
  55. 630 print#1,"b-p"2;162:print#2,"oben ";
  56. 640 print#1,"u2"2;.;18;.
  57. 650 rem  ***** nothilfe-generator
  58. 660 print#1,"b-p"2;.
  59. 670 a$=chr$(.)+chr$(255)+chr$(130)+chr$(18)+chr$(2)+"nicht validieren"
  60. 680 forx=22to255:a$=a$+chr$(.):next
  61. 690 print#2,a$;:print#1,"u2"2;.;18;1
  62. 700 print#1,"b-p"2;.
  63. 710 a$=chr$(.)+chr$(79)+chr$(.)+chr$(4)+no$
  64. 720 print#2,a$;:print#1,"u2"2;.;18;2
  65. 730 gosub1100
  66. 740 rem  ***** diskswitches schreiben
  67. 750 ifythen1230: rem normal ?
  68. 760 rem  ***** 0 block
  69. 770 print#1,"u1"2;.;18;.:print#1,"b-p"2;73:v=1:s=.
  70. 780 get#2,x$:x=asc(x$+chr$(.))
  71. 790 forj=.to7:x=x/2:ifx<>int(x)theng(v)=s:v=v+1
  72. 800 ifv=4then840
  73. 810 s=s+1:x=int(x):next
  74. 820 ifs>18thenclose2:goto1240
  75. 830 goto780
  76. 840 forz=1to2:ifz=1thenn$=" c000":k=.:l=192:v=2
  77. 850 if z=2thenn$=" 033c":k=60:l=3:v=3
  78. 860 t=18:s=1
  79. 870 print#1,"u1"2;.;t;s:print#1,"b-p"2;.
  80. 880 get#2,t1$,s1$:t1=asc(t1$+chr$(.)):s1=asc(s1$+chr$(.))
  81. 890 ift1thent=t1:s=s1:goto870
  82. 900 forq=.to7:print#1,"b-p"2;q*32+2
  83. 910 get#2,x$:ifasc(x$+chr$(.))=0then 930
  84. 920 next
  85. 930 print#1,"b-p";2;q*32+2
  86. 940 a$=chr$(130)+chr$(18)+chr$(g(v))+"diskswitch"+n$+chr$(160):print#2,a$;
  87. 950 print#1,"b-p"2;q*32+30:print#2,chr$(.);chr$(.)
  88. 955 print#1,"b-p"2;.:print#2,chr$(.)
  89. 960 print#1,"u2 2 0";t;s
  90. 970 rem  ***** datas schreiben
  91. 980 print#1,"b-p 2";.
  92. 990 a$=chr$(.)+chr$(199)+chr$(k)+chr$(l)
  93. 1000 forq=.to.:a$=a$+d$(v):next
  94. 1010 print#2,a$;:print#1,"u2"2;.;18;g(v)
  95. 1020 print#1,"b-a";.;18;g(v)
  96. 1030 next
  97. 1040 rem  ***** ende
  98. 1050 input#1,a,b$,c,d:printa;b$;c;d
  99. 1060 close2:close1:end
  100. 1070 :
  101. 1080 rem  ***** unterprogramme
  102. 1090 rem  ***** spurschaltprogramme
  103. 1100 print#1,"m-w"chr$(6)chr$(.)chr$(2)chr$(1)chr$(.)
  104. 1110 print#1,"m-w"chr$(.)chr$(.)chr$(1)chr$(128)
  105. 1120 print#1,"m-r"chr$(.)chr$(.)chr$(1):get#1,a$:ifasc(a$+chr$(.))>127then1120
  106. 1130 return
  107. 1140 print#1,"m-w"chr$(6)chr$(.)chr$(2)chr$(36)chr$(.)
  108. 1150 print#1,"m-w"chr$(.)chr$(.)chr$(1)chr$(176)
  109. 1160 print#1,"m-r"chr$(.)chr$(.)chr$(1):get#1,a$:ifasc(a$+chr$(.))>127then1160
  110. 1170 return
  111. 1180 rem  ***** normal formatieren
  112. 1190 input"disk-name";n$:n$=left$(n$,12)
  113. 1200 input"disk-id  ";id$:id$=left$(id$,2)
  114. 1210 print#1,"n:"+n$+","+id$:print#1,"i"
  115. 1215 input#1,a,b$,c,d:ifathenprinta;b$;c;d:close1:end
  116. 1220 return
  117. 1230 rem  ***** diskswitches normal
  118. 1240 k=49152:n$=" c000":v=2:gosub1270
  119. 1250 k=828:n$=" 033c":v=3:gosub1270
  120. 1260 goto1050
  121. 1270 open3,8,2,"diskswitch"+n$+",p,w"
  122. 1280 input#1,a,b$,c,d:ifathenprinta;b$;c;d:close3:goto1060
  123. 1290 print#3,chr$(int(k-int((k/256))*256))chr$(int(k/256));
  124. 1300 print#3,d$(v);:close3
  125. 1310 return
  126. 1320 rem  ***** diskswitches ersetzen
  127. 1330 print"   [196]iskette einlegen !":wait198,1:geta$
  128. 1340 print#1,"s:diskswitch*"
  129. 1350 open2,8,2,"#":forq=.to105:reada:next
  130. 1360 forq=.to195:reada:d$(2)=d$(2)+chr$(a):next
  131. 1370 forq=.to195:reada:d$(3)=d$(3)+chr$(a):next:goto770
  132. 1372 :
  133. 1375 rem  ***** datas *****
  134. 1380 :
  135. 1390 rem  format-datas
  136. 1400 data165,81,201,255,240,24,165,81,201,1,208,6,169,18,133,81,133,34
  137. 1410 data165,81,201,25,208,6,169,36,133,81,133,34,76,199,250
  138. 1420 rem  nothilfe datas
  139. 1430 data169,7,133,183,169,1,133,184,169,15,133,185,169,8,133,186,169,65,133
  140. 1435 data187,169,4,133,188,32,192,255,169,1,32,195,255,169,1,133,183,169,8
  141. 1440 data133,184,169,15,133,185,169,8,133,186,169,72,133,187,169,4,133,188,32
  142. 1445 data192,255,169,255,32,195,255,96,77,45,87,0,0,1,192,73
  143. 1450 rem  von 49152 - 49347
  144. 1460 data169,11,141,24,3,169,192,141,25,3,96,120,169,161,141,24,3
  145. 1470 data169,2,133,183,169,20,133,184,169,15,133,185,169,8,133,186,169
  146. 1480 data193,133,187,169,192,133,188,32,192,255,169,20,32,195,255,173,162
  147. 1490 data192,240,11,32,109,192,169,0,141,162,192,76,142,192,32,76,192
  148. 1500 data169,1,141,162,192,76,142,192,169,9,133,183,169,163,133,187,32
  149. 1510 data192,255,169,20,32,195,255,169,8,133,183,169,171,133,187,32,192
  150. 1520 data255,169,20,32,195,255,96,169,9,133,183,169,178,133,187,32,192
  151. 1530 data255,169,20,32,195,255,169,8,133,183,169,186,133,187,32,192,255
  152. 1540 data169,20,32,195,255,96,169,2,133,183,169,193,133,187,32,192,255
  153. 1550 data169,20,32,195,255,32,0,192,64,1,77,45,87,6,0,2,36
  154. 1560 data0,77,45,87,0,0,1,176,77,45,87,6,0,2,1,0,77,45,87,0,0,1,128,73,68,78
  155. 1570 rem  von 828 - 1023
  156. 1580 data169,71,141,24,3,169,3,141,25,3,96,120,169,221,141,24,3
  157. 1590 data169,2,133,183,169,20,133,184,169,15,133,185,169,8,133,186,169
  158. 1600 data253,133,187,169,3,133,188,32,192,255,169,20,32,195,255,173,222
  159. 1610 data3,240,11,32,169,3,169,0,141,222,3,76,202,3,32,136,3
  160. 1620 data169,1,141,222,3,76,202,3,169,9,133,183,169,223,133,187,32
  161. 1630 data192,255,169,20,32,195,255,169,8,133,183,169,231,133,187,32,192
  162. 1640 data255,169,20,32,195,255,96,169,9,133,183,169,238,133,187,32,192
  163. 1650 data255,169,20,32,195,255,169,8,133,183,169,246,133,187,32,192,255
  164. 1660 data169,20,32,195,255,96,169,2,133,183,169,253,133,187,32,192,255
  165. 1670 data169,20,32,195,255,32,60,3,64,1,77,45,87,6,0,2,36
  166. 1680 data0,77,45,87,0,0,1,176,77,45,87,6,0,2,1,0,77,45,87,0,0,1,128,73,68,0
  167.